Aminet 23/Aminet 23 (1998)(GTI - Schatztruhe)[!][Feb 1998].iso/Aminet/text/edit/GED_Hexedit.lha/GED_Hexedit/hex/deutsch/hextab.ged

Text File | 1997-11-13 | 705b | 2 lines

/* Optimized with RexxOpt 1.8 */
OPTIONS RESULTS;if (LEFT(ADDRESS(),6) ~="GOLDED") then;address 'GOLDED.1';'LOCK CURRENT RELEASE=4';if (RC ~=0) then;exit;OPTIONS FAILAT 6;SIGNAL ON SYNTAX;'SET Insert FALSE';'QUERY Column';Spalte=Result;'QUERY Len';Laenge=Result;if Spalte<11 then;do;'GOTO Column=11';'UNLOCK';exit;end;if Spalte>63 then;do;'GOTO Column=63';'UNLOCK';exit;end;if Spalte=46 then;do;'GOTO Column=45';'UNLOCK';exit;end;if Spalte=47 then;do;'GOTO Column=48';'UNLOCK';exit;end;if Spalte<46 then 'GOTO Column="'||((Spalte-1-(Spalte-10)%9)%2)+43||'"';else 'GOTO Column="'||((Spalte-43)*2)+1+(Spalte-48)%4||'"';'UNLOCK';exit;SYNTAX:;SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-(";'UNLOCK';exit